home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / MEDICAL / 1752.ZIP / MHD.ZIP / MHAPPEND.PRG < prev    next >
Text File  |  1986-07-06  |  3KB  |  116 lines
  1. * MHAPPEND    DB3 PLUS                                  REVISION 07/04/86
  2. *
  3. SET TALK OFF
  4. SET DELIMITER ON
  5. SET INTENSITY ON
  6. CLOSE ALL DATABASES
  7. STORE .F. TO file1
  8. STORE .F. TO file2
  9. STORE .F. TO file3
  10. STORE .F. TO file4
  11. STORE .F. TO file5
  12. STORE .F. TO file6
  13. DO WHILE .T.
  14.    CLEAR
  15.    ? 'PROGRAM TO ADD NEW DATA'
  16.    ? '  1. To all files'
  17.    ? '  2. To DRUG file'
  18.    ? '  3. To ORGANISM file'
  19.    ? '  4. To ADVERSE REACTION file'
  20.    ? '  5. To INTERACTION file'
  21.    ? '  6. To CLINICAL DATA file'
  22.    ? '  7. To REFERENCE file'
  23.    ? '  8. Read last identification numbers'
  24.    ? '  9. Index files after all data entered'
  25.    ? '  A. Review data for a specific drug'
  26.    ? '  B. Return to previous menu'
  27.    WAIT 'Enter number of your choice.' TO choice
  28.    IF choice = ' '
  29.       LOOP
  30.    ENDIF 
  31.    DO CASE
  32.    CASE choice = '1'
  33.       STORE .T. TO file1
  34.       STORE .T. TO file2
  35.       STORE .T. TO file3
  36.       STORE .T. TO file4
  37.       STORE .T. TO file5
  38.       STORE .T. TO file6
  39.       DO MHIDNO
  40.       USE MHDRUG
  41.       APPEND
  42.       USE MHORGAN
  43.       APPEND
  44.       USE MHADVERS
  45.       APPEND
  46.       USE MHINTACT
  47.       APPEND
  48.       USE MHCLINIC
  49.       APPEND
  50.       USE MHREFER
  51.       APPEND
  52.    CASE choice = '2'
  53.       STORE .T. TO file1
  54.       USE MHDRUG
  55.       APPEND
  56.    CASE choice = '3'
  57.       STORE .T. TO file2
  58.       USE MHORGAN
  59.       APPEND
  60.    CASE choice = '4'
  61.       STORE .T. TO file3
  62.       USE MHADVERS
  63.       APPEND
  64.    CASE choice = '5'
  65.       STORE .T. TO file4
  66.       USE MHINTACT
  67.       APPEND
  68.    CASE choice = '6'
  69.       STORE .T. TO file5
  70.       USE MHCLINIC
  71.       APPEND
  72.    CASE choice = '7'
  73.       STORE .T. TO file6
  74.       USE MHREFER
  75.       APPEND
  76.    CASE choice = '8'
  77.       DO MHIDNO
  78.    CASE choice = '9'
  79.       IF file1
  80.          USE MHDRUG INDEX MHDRUGID
  81.          INDEX ON DRUG_ID TO MHDRUGID
  82.          USE MHDRUG INDEX MHGENAME
  83.          INDEX ON GEN_NAME TO MHGENAME
  84.       ENDIF
  85.       IF file2
  86.          USE MHORGAN INDEX MHORGAN
  87.          INDEX ON DRUG_ID TO MHORGAN
  88.       ENDIF
  89.       IF file3
  90.          USE MHADVERS INDEX MHADVERS
  91.          INDEX ON DRUG_ID TO MHADVERS
  92.       ENDIF
  93.      IF file4
  94.          USE MHINTACT INDEX MHINTACT
  95.          INDEX ON DRUG_ID TO MHINTACT
  96.       ENDIF      
  97.       IF file5
  98.          USE MHCLINIC INDEX MHCLINIC
  99.          INDEX ON DRUG_ID TO MHCLINIC
  100.       ENDIF
  101.       IF file6
  102.          USE MHREFER INDEX MHREFER
  103.          INDEX ON REF_ID TO MHREFER
  104.       ENDIF
  105.    CASE UPPER(choice) = 'A'
  106.       DO MHDRUG
  107.    CASE UPPER(choice) = 'B'
  108.       SET DELIMITER OFF
  109.       RETURN
  110.    ENDCASE
  111. ENDDO
  112. SET DELIMITER OFF
  113. RETURN
  114.  
  115.  
  116.